home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / recipe.sit / Recipe Box / background_3892.txt < prev    next >
Encoding:
Text File  |  1988-08-19  |  6.1 KB  |  280 lines
  1. -- background: 3892 from stack: in
  2. -- bmap block id: 7710
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   push card
  9. end openBackground
  10.  
  11.  
  12.  
  13. -- part 7 (button)
  14. -- low flags: 00
  15. -- high flags: 0000
  16. -- rect: left=225 top=287 right=312 bottom=252
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 1014 / 1014
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Prev
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   visual effect wipe up
  28.   go to previous card
  29. end mouseUp
  30.  
  31.  
  32.  
  33. -- part 8 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=270 top=287 right=312 bottom=297
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 1013 / 1013
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Next
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   visual effect wipe down
  48.   go to next card
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 14 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=422 top=284 right=312 bottom=459
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 1012 / 1012
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Return
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   pop card -- pop this card off of the stack
  68.   visual effect iris close
  69.   pop card
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 16 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=338 top=29 right=48 bottom=456
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 20
  82. -- text size: 14
  83. -- style flags: 8448
  84. -- line height: 18
  85. -- part name: 
  86.  
  87.  
  88. -- part 24 (button)
  89. -- low flags: 00
  90. -- high flags: 0000
  91. -- rect: left=10 top=293 right=331 bottom=51
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 20098 / 20098
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Home
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   visual effect iris close
  103.   go home
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 26 (button)
  109. -- low flags: 00
  110. -- high flags: 0000
  111. -- rect: left=110 top=289 right=335 bottom=158
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 1007 / 1007
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: ImageWriter
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   doMenu "Print Card"
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 27 (button)
  128. -- low flags: 00
  129. -- high flags: 8003
  130. -- rect: left=164 top=291 right=333 bottom=209
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: New
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   set lockScreen to True
  142.   put the id of this card into index
  143.   go to card "master recipe"
  144.   domenu "Copy Card"
  145.   closeCard
  146.   go to index
  147.   domenu "Paste Card"
  148.   set the script of this card to empty
  149.   ask "What is name of new recipe?"
  150.   if it is empty then
  151.     set lockScreen to True
  152.     domenu "Delete Card"
  153.     go to index
  154.   else
  155.     put it into newName
  156.     put newName into field 1
  157.     set lockScreen to False
  158.     set the name of this card to newName
  159.     put the id of this card into temp
  160.     set lockScreen to True
  161.     go to index
  162.     doMenu "New Button"
  163.     set rect of button "New Button" to 200,100,335,115
  164.     set textStyle of button "New Button" to plain
  165.     set textStyle of button "New Button" to condense
  166.     set textSize of button "New Button" to 12
  167.     set textStyle of button "New Button" to underline
  168.     set textFont of button "New Button" to Geneva
  169.     set textAlign of button "New Button" to left
  170.     set showName of button "New Button" to true
  171.     set the style of button "New Button" to transparent
  172.     set name of button "New Button" to newName
  173.     put "on mouseUp" into line 1 of newScript
  174.     put "hide message" into line 2 of newScript
  175.     put "put newRecipe("& quote & temp & quote & ") into dummy" into line 3 of newScript
  176.     put "go to" && temp into line 4 of newScript
  177.     put "end mouseUp" into line 5 of newScript
  178.     set script of button newName to newScript
  179.     set the loc of message to 15,300
  180.     put "Drag the button to the desired location and type Command-Tab"
  181.     set lockScreen to False
  182.   end if
  183. end Mouseup
  184.  
  185.  
  186.  
  187. -- part 28 (button)
  188. -- low flags: 00
  189. -- high flags: 8003
  190. -- rect: left=313 top=288 right=310 bottom=406
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 0 / 0
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Index
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   go to first card
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 29 (button)
  207. -- low flags: 00
  208. -- high flags: A003
  209. -- rect: left=314 top=312 right=334 bottom=409
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Find
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   doMenu "Find..."
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 30 (button)
  226. -- low flags: 00
  227. -- high flags: 0000
  228. -- rect: left=470 top=286 right=313 bottom=501
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 26635 / 26635
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Help
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   go to card "Recipe Help"
  240. end mouseUp
  241.  
  242.  
  243. -- part 31 (button)
  244. -- low flags: 00
  245. -- high flags: 0000
  246. -- rect: left=64 top=291 right=330 bottom=106
  247. -- title width / last selected line: 0
  248. -- icon id / first selected line: 32670 / 32670
  249. -- text alignment: 1
  250. -- font id: 0
  251. -- text size: 12
  252. -- style flags: 0
  253. -- line height: 16
  254. -- part name: 
  255. ----- HyperTalk script -----
  256. on mouseUp
  257.   show all cards
  258. end mouseUp
  259.  
  260.  
  261.  
  262. -- part 33 (button)
  263. -- low flags: 00
  264. -- high flags: 8003
  265. -- rect: left=248 top=321 right=337 bottom=276
  266. -- title width / last selected line: 0
  267. -- icon id / first selected line: 0 / 0
  268. -- text alignment: 1
  269. -- font id: 0
  270. -- text size: 12
  271. -- style flags: 0
  272. -- line height: 16
  273. -- part name: Art
  274. ----- HyperTalk script -----
  275. on mouseUp
  276.   push card
  277.   go to card "Art Ideas"
  278. end mouseUp
  279.  
  280.